home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aas.d64 / kangaroos (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  77 lines
  1. 100 REM KANGAROOS-THE GREAT ESCAPE CREATED BY DENNIS DUNK *PUBLIC DOMAIN 1987*
  2. 110 IF A=0THENA=1:PRINT "LOADING DATA":LOAD"ML1",8,1
  3. 120 IF A=1THENA=2:LOAD"ML2",8,1
  4. 130 IF A=2THENA=3:LOAD"[S] DATA",8,1
  5. 140 IF A=3THENA=4:PRINT "LOADING MUSIC":LOAD"DON'T TIE ME    ",8,1
  6. 150 POKE249,0:POKE 53280,0:POKE 53281,0:PRINT"[147][158]":GOSUB770
  7. 160 FOR L=1TO9:READ K:Y=K:GOSUB760:PRINT"[145][145][145][145][145][145]"
  8. 170 X=0+B:B=B+4
  9. 180 POKE249,X:POKE250,Y:SYS828:NEXT L
  10. 190 P=2040:V=53248:REM P=POINTER V=VIC
  11. 200 FORK=0TO16 STEP2:POKEV+K,0:NEXTK:REM SET X TO ZERO
  12. 210 FORK=1TO15 STEP2:POKEV+K,0:NEXTK:REM SET Y TO ZERO
  13. 220 POKEP+2,200:POKEP+3,255:POKEP+4,150
  14. 230 POKEV+41,12:POKEV+42,12:POKEV+43,12
  15. 240 POKEV+29,28:POKEV+23,28:REM EXPAND
  16. 250 Y=160:POKEV+5,Y:POKEV+7,Y:POKEV+9,Y:REM Y POSITION
  17. 260 POKEV+4,80:POKEV+6,148:POKEV+8,216
  18. 270 POKEV+21,28:REM TURN ON SPRITES
  19. 280 GOSUB760:GOSUB760:POKEP+3,211:GOSUB760:POKEP+3,212:GOSUB760:POKEP+3,211
  20. 290 GOSUB760:POKEP+3,255:GOSUB760:GOSUB760:POKEV+21,0
  21. 300 PRINT"[147]":RESTORE:CLR:GOSUB770
  22. 310 FOR L=1TO9:READ K:Y=K:GOSUB760:PRINT"[145][145][145]"
  23. 320 X=0+B:B=B+4
  24. 330 POKE249,X:POKE250,Y:SYS828:NEXT L
  25. 340 DATA 11,1,14,7,1,18,15,15,19
  26. 350 PRINT"[145]    IN: THE GREAT ESCAPE"
  27. 360 GOSUB760:GOSUB760:GOSUB760
  28. 370 PRINT"[147][159]":RESTORE:CLR:GOSUB770
  29. 380 FOR L=1TO9:READ K:NEXT L
  30. 390 POKE249,12:POKE250,20:SYS828:PRINT"[145][145][145][145][145][145]"
  31. 400 POKE249,16:POKE250,8:SYS828:PRINT"[145][145][145][145][145][145]"
  32. 410 POKE249,20:POKE250,5:SYS828:PRINT""
  33. 420 FOR L=1TO12:READ K:Y=K:GOSUB760:PRINT"[145][145][145][145][145]"
  34. 430 X=0+B:B=B+3
  35. 440 POKE249,X:POKE250,Y:SYS828:NEXT L
  36. 450 DATA 7,18,5,1,20,32,5,19,3,1,16,5
  37. 460 PRINT"          BY  DENNIS DUNK":GOSUB760:GOSUB760:GOSUB760
  38. 470 PRINT"[147]":RESTORE:CLR:GOSUB770
  39. 480 FOR L=1TO21:READ K:NEXT L
  40. 490 FOR L=1TO9:READ K:Y=K:GOSUB760:PRINT"[145][145][145][145][145][145]"
  41. 500 X=0+B:B=B+4
  42. 510 POKE249,X:POKE250,Y:SYS828:NEXT L
  43. 520 DATA 3,18,5,4,9,20,19,32,58
  44. 530 PRINT:PRINT""
  45. 540 T=39:LM=5:N$="KANGAROOS-THE GREAT ESCAPE":LN=LEN(N$):GOSUB720
  46. 550 T=39:LM=5:N$="WRITTEN BY:":LN=LEN(N$):GOSUB720:PRINT"[145][145][145]"
  47. 560 T=39:LM=LN+8:N$="DENNIS DUNK":LN=LEN(N$):GOSUB720:PRINT:PRINT
  48. 570 PRINT:PRINT"[145][145][145][159]"
  49. 580 T=39:LM=5:N$="SPRITES DESIGNED WITH":LN=LEN(N$):GOSUB720
  50. 590 T=39:LM=8:N$="SPRITE-RITE I BY:":LN=LEN(N$):GOSUB720
  51. 600 T=39:LM=11:N$="JIM BLANKENSHIP":LN=LEN(N$):GOSUB720:PRINT
  52. 610 PRINT"[145][145][145][158]"
  53. 620 T=39:LM=5:N$="MUSIC CREATED WITH ALLEGRO":LN=LEN(N$):GOSUB720
  54. 630 T=39:LM=8:N$="BY BOB LANDWEHR (ARTWORX)":LN=LEN(N$):GOSUB720:PRINT
  55. 640 PRINT"[145][145][145]"
  56. 650 T=39:LM=5:N$="MUSIC-DON'T TIE ME DOWN-ADAPTED":LN=LEN(N$):GOSUB720
  57. 660 T=39:LM=5:N$="FROM-TIE ME KANGAROO DOWN,SPORT":LN=LEN(N$):GOSUB720
  58. 670 T=39:LM=5:N$="BY R. HARRIS (BMI) (COLUMBIA)":LN=LEN(N$):GOSUB720:PRINT
  59. 680 GOSUB760:GOSUB760:GOSUB760:GOSUB760
  60. 690 PRINT"[147] PREPARING ACT I: PLEASE BE PATIENT":GOSUB760:GOSUB760:PRINT"[144]"
  61. 700 F$="ACT 1":PRINT"[147] LOAD"+CHR$(34)+F$+CHR$(34)+",8": PRINT "RUN"
  62. 710 POKE198,4: POKE631,19: POKE632,13: POKE633,13: POKE634,13:END
  63. 720 PRINT TAB(T-LN);N$;:N=N+1:T=T-1
  64. 730 FOR D=1TO100:NEXTD
  65. 740 PRINT"[157]                                        [145][145]":IFN<=39-(LN+LM)GOTO720
  66. 750 PRINTTAB(LM);N$:N=0:PRINT"[145][145]":RETURN
  67. 760 FOR D=1TO300:NEXT D:RETURN
  68. 770 S=54272:REM START OF SOUND CHIP
  69. 780 POKE S+24,15:REM FULL VOLUME
  70. 790 G=00:H=10:REM SET VOICES
  71. 800 POKE S+1,G:N=N+1:REM VOICE 1 FREQ
  72. 810 POKE S+5,9:POKE S+6,12:REM ADSR
  73. 820 POKE S+15,H:REM VOICE TWO FREQUENCY
  74. 830 FOR N=1TO50:POKE S+4,21:REM 21=17+4, TURN ON TRI WAVE + RING MOD, NO. HITS
  75. 840 FOR T=1TO30:NEXT:POKE S+4,20:REM    TIME BETWEEN CHIMES
  76. 850 RETURN
  77.